home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / ptv2n1.arc / TEST.BAS < prev    next >
BASIC Source File  |  1991-03-26  |  330b  |  14 lines
  1. '  TEST.BAS - a test driver for VALSUB.ASM
  2. '     compiled with BC 7.1, switch "/O"
  3. '   linked to VALSUB.OBJ and NOFLTIN.OBJ
  4. '             switches "/E/NOE"
  5.  
  6. declare function atoi% (a$)
  7. declare function atol& (a$)
  8.  
  9. restart:
  10.     input "Enter a digit string:  ", a$
  11.     print , atoi(a$), atol(a$)
  12.     print
  13. goto restart
  14.